Comments.

diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el
index 30b9cc26c384128755df5d77b2a3f805fabae907..b3ed1c89887bdb16417cee21638cbe038e4e8329 100644 (file)
--- a/lisp/calendar/cal-mayan.el
+++ b/lisp/calendar/cal-mayan.el
@@ -53,8 +53,6 @@
 
 ;;; Code:
 
-(defvar date)
-
 (require 'calendar)
 
 (defconst calendar-mayan-days-before-absolute-zero 1137142
@@ -381,6 +379,9 @@ Defaults to today's date if DATE is not given."
             base (cdr base)))
     (or (null lc) (> (car lc) (car base)))))
 
+(defvar date)
+
+;; To be called from list-sexp-diary-entries, where DATE is bound.
 (defun diary-mayan-date ()
   "Show the Mayan long count, haab, and tzolkin dates as a diary entry."
   (format "Mayan date: %s" (calendar-mayan-date-string date)))